home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / h / sfun_argd.h < prev    next >
Encoding:
C/C++ Source or Header  |  1991-10-25  |  288 b   |  11 lines
  1. #define SFUN_RETURN_MASK (0xf00 & ~VFUN_NARG_BIT)
  2. #define SFUN_ARG_TYPE_MASK (~0xfff)
  3.  
  4. #define SFUN_RETURN_TYPE(s) \
  5.   ((enum ftype)(((s) & SFUN_RETURN_MASK) >> 8))
  6.  
  7. #define SFUN_START_ARG_TYPES(x) (x=(x>>10))
  8. #define SFUN_NEXT_TYPE(x) ((enum ftype)((x=(x>>2))& 3))
  9.  
  10. #define MAX_C_ARGS 9
  11.